Languguage OS 2/Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO/a_utils/perl/prlbkxmp.lha/ch5/untaint.eg

Text File | 1991-01-08 | 37b | 3 lines

$ARGV[0] = /^([\w.]*)$/;
$free = $1;